State monads and their algebras 

Frangois Metayer* 



Abstract 

State monads in cartesian closed categories are those denned by the 
familiar adjunction between product and exponential. We investigate 
the structure of their algebras, and show that the exponential functor 
is monadic provided the base category is sufficiently regular, and the ex- 
ponent is a non-empty object. 

1 Introduction 

Let C be a cartesian closed category. Any object S in C gives rise to a monad 
T = UF, where 

[/:Xh X s 

and 

F:IhSxX 

T, among other monads, has been extensively studied by researchers in func- 
tional programming, in order to model computational effects (see for example 
01 EJ) i and called a state monad since then. A main source of the present 
work is [1], which investigates the algebras of state monads, in a significantly 
different setting however, and provides an explicit equational presentation of 
these algebras. 

This raises the question as whether the original functor U itself is monadic: 
it turns out that the answer is positive, provided C is sufficiently regular, and 
S is non-empty (Theorem 

1.1 Notations 

Throughout this article, S will denote the fixed object of C, on which T is built. 
The natural isomorphism 

Hom c (S* x XX) -> Hom c (A,F s ) 

will be denoted by 

/ -> r 
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and its inverse by 

9 ^ 9* 

In particular, for each X, the identity 

id x s : X s ^ X s 

gives rise to 

(id^s)* :S XX s ^ X 

which is the evaluation morphism (s,f) i— > f[s], and will be denoted by ex- It 
is of course the counit of the adjunction. Finally, for each object X in C, the 
projections 5xI^S and S x X ^ X will be denoted by px, qx respectively. 
Note that p, q are natural transformations F — > 1. 



2 The case of Sets 



We suppose in this section that C is the category of sets. Let us first recall the 
concrete meaning of (T,fj,,rf) in this case. For each set X, TX = (S x X) s , so 
that the unit rfx associates to each i£l the map As (s,x), an element of TX; 
as for fix, it takes an argument of the form 



in TTX, and outputs 



As (c[ 3 ],Xs' <c'[s,s'],/M']» 



As (c'[s,c[s}],f[s,c[s}}) 



which belongs to TX. In other words, fix is cfxx- Recall that T-algebras are 
pairs {X, h) where X and h : TX — > X are such that the following diagrams 
commute: 

(1) 



T 2 X 



X— ^TX 



MX 

TX ■ 




^X 



X 



which means in this case that 

h(Xs (c[s],h(Xs' (c'[s, s'],x[s, s'])))) 
h(Xs (s, x)) 



h(Xs{c'[s,c[s]},x[s,c[s}})) (2) 

(3) 



A morphism of T-algebras (X,h), (X',h') is a map / : X — ► X' making the 
following diagram commutative: 

T/ 

TX >■ TX' 

h ft' 



X 



X' 
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Algebras and morphisms build a category Alg T , with an obvious forgetful func- 
tor U T : (A, h) ^ X. 

As with any adjunction, we may define a comparison junctor 

K:C-> Alg T 

which is given, in this case, by 

Y i > (F 5 ,e£) 

Call U monadic if K is an equivalence of categories. Note that the same 
terminology is often applied to a stronger notion, where K is required to be an 
isomorphism (see pQ and |2] on this issue). 

The key idea is now that, in Sets, T-algebras are essentially sets of maps 
Y s , with their evaluation morphisms. Theoremnbelow is a precise formulation 
of this remark. 

Theorem 1 If S ^ 0, then U is monadic. 

Proof. Beck's criterion ( 1 ) applies, proving the statement. However the situ- 
ation is better understood by a direct study of the comparison functor. 
In order to show that K is an equivalence, we define a functor 

L : Alg T -► Sets 

such that KL and LK are naturally isomorphic to the identity functor on Alg T 
and Sets respectively. Let (X, h) be a T-algebra, we define the set 

Y = L (X, h) 

as follows. From the projection 

qsxx ■ S x (S x X) -> S x X 



we get 
hence 



q* SxX : S x X -» (S x X) s = TX 



(j) = ho q* SxX : S x X ^ X 
Then Y = L (X, h) will be the image of 4>. Concretely, Y is the subset of X 



given by 



Y = {h(Xs' (s,x))\s eS,xeX} 



and we get a surjective map ex ■ S x X — > Y making the following diagram 
commutative: 

S x X TX 

ex h 
" 

Y — >■ X 
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where mx is the inclusion monomorphism (in fact ex and mx really depend on 
the algebra (X, h)). Now L has to be defined on morphisms as well: let then u be 
a morphism of algebras u : {X, h) -» (X' , h 1 ), Y = L{X, h) and Y' = L {X', h'). 
There is a unique map Lu : Y — > Y' such that the following diagram commutes: 



_ Sxu 

SxX »- SxX' 



Y ■ 



Lu 



Y' 



Display ex as a cokernel 



SxX- 



Y 



and fit the above diagram into this larger one: 

Sxu 



SxX 




TX 

h 



Tu 



TX' 

h' 



X' 




Lu 



SxX' 





The inner square commutes because u 
zoid commutes by naturality of q* , am 
mute by definition of e, m . Hence 

mx 1 o ex> ° (S x u) o a 



is a morphism of algebras, the top trape- 
1 the left and right hand trapezoids com- 

u o mx o ex o a 
u o mx o ex o b 
mx 1 ex' o (S x u) o b 



and mx> being a monomorphism, 



ex> ° (S x u) o a = ex> ° (S x u) ob 

so that ex' °(Sxu) equalizes the pair a, b. As ex is a cokernel, there is a unique 
making the outer square commutative, as required. As usual, uniqueness of 
Lu ensures functoriality. Note that e is a natural transformation: 

e : FU T -► L 
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As a consequence, the adjunction gives a natural transformation from U T to 
UL, or better, as U = U T K 

e* : U T -> C/ r if£ 
Thus we reduced the existence of a natural isomorphism: 

KL ~ 1 

to the following statements: 

• for all (X,h), e* x is a bijection; 

• for all (X, h), e* x is a morphism of algebras. 

which will be proved separately in Lemmas ^ an d HI below. 
Finally, there is a natural isomorphism: 

LK ~ 1 

If y is a set, LKY is nothing but the subset of Y consisting of constant maps 
from S to Y, which is naturally isomorphic to Y because S ^ 0. □ 

The two following lemmas will complete our argument. Keeping the previous 
notations, 

Lemma 1 For each T '-algebra (X,h), the map e* x is a bijection. 

Proof. Let us give an explicit construction of the inverse map /. For each 
y G Y , we define f(y) € X by 

/(») = MA* (*,»[*])) 

Now, for each x G X, 

f(e* x (x)) = h(Xs(s,h(Xs'(s,x)))) 

= h{Xs(s,x)) by © 

= a; by © 

Thus / is a retraction for e* x . 

On the other hand, let y G F s , 

e*x(f(v)) = \sh(\s'{s,f(y)}) 

= Xsh{\s' (s,h{Xs" (s",y[s"]))) 
= Xsh(Xs' (s,y[s})) by © 

but y[s] = h(Xs" (c[s],x[s])) for suitable maps c and x, by dehnition of Y, so 
that the last expression reduces to 

Xsh(Xs' {c[s],x[s])) — Xsy[s] = y 

by © again. Thus e x (f(yj) = y, and / is also a section of e* x . Hence / = 
(e^) -1 , as required. □ 
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Lemma 2 For each T -algebra {X, h) , e* x is a morphism of algebras. 
Proof. Let us prove the commutativity of the following diagram: 

Te 



TX 

h 

x- 



■ T(Y b ) 

4 
Y s 



Let u € TX. It is a As (c[s],x[s]) for a certain pair of maps c, x. Hence 
e* x o h(u) 



On the other hand 

4°Te* x {u) 

so that 



Xs'h{Xs" (s',h(Xs (c[s],x[s})))) 
Xs'h{Xs" (c[s'],x[s'])) by © 



e^(Xs(c[s],Xs'h{Xs" (s',x[s])))) 



Xsh(Xs" (c[s],x[s})) 



e* x o h = ey Te* x 



□ 



3 A general theorem 

By carefully examining the proofs in section|2 we see that the equations J5J) and 
J3J are only used in proving Lemmas ^and El Thus large parts of our argument 
still hold beyond Sets. As we shall see, a key hypothesis for generalizing the 
previous results is that C has regular epi-mono factorization, that is, each arrow 
in C factorizes as a composition of a regular epimorphism and a monomorphism. 
The regularity hypothesis implies that such a factorization is unique, up to 
isomorphism. Thus from now on, we assume that C has regular epi-mono 
factorization. 

3.1 Construction of L 

Let us first generalize the construction of 

L : Alg T -> C 

If C is any cartesian closed category, and (X, h) is a T-algebra, the morphism 
fx = h o q* SxX is still defined: 

SxX q ±l^ TX ^ x 



6 



so that all we need to extend the previous definition of L is the existence of 
an image object for fx, which immediately follows from the regular epi-mono 
factorization property on C. 

Thus we get a regular epimorphism ex and a monomorphism mx such that 

fx = m x ° e x (4) 
and L (X, h) can be defined as the object Y in the commutative diagram 

S x X TX 



Y 



X 



Now the regularity of ex suffices to make L a functor, and e a natural transfor- 
mation: 

e : FU T -> L 

as already shown in the proof of Theorem ^ Whence a natural transformation 

e* : U T -> U T KL 



3.2 A retraction 

Proposition 1 For each T -algebra (X,h), e* x : X — » Y s has a retraction. 
Proof. Consider the following commutative diagram: 



9sxx 

S x X ^ TX 



(5) 




Y 



X 



The left lower triangle gives rise by adjunction to the following commutative 
triangle: 

X 




X k 



If fx has a retraction r, then r o m x is immediately a retraction for e* x ■ Thus 
we turn to the construction of such a retraction for f x . The upper right triangle 
of JSJ gives rise again by adjunction to the following commutative triangle: 



x ^'(TX f 



(6) 
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Let us introduce a natural transformation 9 between U and T. For each object 
Z , we first have 

(p z s^ z ) :SxZ s ^SxZ 

whence 

9 Z = (p z s,e z )* : Z s ^TZ 
as required. The triangle © then hts into a larger diagram: 



(i'sxx)* 




(7) 



where r is defined by 

r = h o 8x 

Now |J7Jl commutes: in fact (JSJ) commutes already, the lower right triangle com- 
mutes by definition of r, and the square by naturality of 8. By defining 

ijj = e TX o {q* SxX y 

we get 

r ° fx = h o Th o tp 

From the definition of a T-algebra QJ, we know that hoTh = ho /j, x . We claim 
that 

Wo^W (8) 

which implies 

ro/^ = /io T/i o ■)/) 

= /lO /ijf o -0 

= id* 

by (JTJ again, and the result reduces to ijHJ, proved in Lemma £3 □ 



Lemma 3 For each object X, fix ° ^rx ° (isxx)* ~ Vx- 

Proof. The lemma states the commutativity of the following diagram: 

(TX) S - 97 



TTX 



(9s > 




(9) 
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where the upper left triangle commutes by definition of ip. The first step is 
to note that, as Qtx = (j>tx s , £ tx)* , ip is °f the form <fi* , where </> makes the 
following triangle commute: 



(p tx s^tx) 

S x (TX) S ^ S xTX 

S x X 




Let us show that 



4> = (Px,q* sxx ) 

This amounts to check the commutativity in the product diagram: 



Px 



S x X 



S xTX- 



Isxx 



TX 



Ptx Qtx 

The left hand side commutes because of the commutativity of: 

Sx-iq'sxxT (p tx s,ctx) 
S x X ^ S x (TX) S S xTX 




As for the right hand side, it amounts to the commutativity of: 

■Sx(?J xX )* (p Tx s,e T x) 

S x X S x (TX) S ^ S x TX 




(10) 



(11) 
(12) 



(13) 



(14) 



Now, in H14fl . the commutativity of the right hand side is straightforward, so we 
arc reduced to check commutativity on the left hand side, which in turn results 
from: 

e T x °(S x (q* SxX T) = (id(M)s), ° (S x (q* SyX )*) 
= (id(TX)s o (q* SxX )*)* 
= (texx)'), 

- qsxx 
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This achieves the proof of iJTTJ. 

Back to JJjJ, we now prove that the right lower triangle commutes; we just 
proved that this triangle is in fact: 



(px,q* Sx x)* 
X 



Vx 



TTX 

P-x 

TX 



(15) 



As fix — (tsxx) s and rjx = (idsxx)*, (fT3fl commutes if and only if (|Pp|l also 
commutes: 

S x TX (16) 



S xX 



id.-, 



fsxx 

SxX 



Let A = (ids, ids) : S — » 5 x 5, we may express (px, Qsxx) as a compostion: 
(px,4x) = (^4J°(AxX) (17) 

such that the commutativity of (|16f) reduces to the commutativity of the fol- 
lowing diagram: 



S x S x X ^ S x TX 



(18) 



SxA 

Sxl 



Sxl 



but the adjunction gives: 



esxx °(Sx q* SxX ) = (id TX )* ° (S X q* SxX ) 

= (id T x o gJ xX ), 

= (<?Sxx)* 

= qsxx 



Finally 



qsxx ° (A x X) = idsxx 



and the lemma is proved. 



□ 



3.3 Existence of a section 

We now turn to conditions ensuring the existence of a section for e* x . We first 
prove a technical lemma: 
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Lemma 4 Suppose {X, h) is a T -algebra, and the epimorphism ex has a sec- 
tion. Then e* x also has a section. 

Proof. Let a be a section of e Xl that is 

ex o a — idy (19) 

and define 

E = /ioa s (20) 
we claim that £ is a section of e* x . Consider the following diagram: 

(21) 




and note that 



m x o e*x ° ^ 



but using the adjunctions: 

a4 ° {q, 



l x 



o ho i 



= h S o(q* SxX )* ohoa 8 

= h S o(Th) S o( q * SxTX )*oa S 

= h s ov x o(q* xTx y oa s 



:-<TX) - KVxoqsxTx) 

i S * \* 

— \ e SxX ° ISxTX) 

= (?SxX ° £ Sxx)* 

= (?Sxx) oe SxX 

= (fexx) S °((idTx)*) 

= (q*sxxf 



so that 



m|oe x oE = h s o(q* SxX f o ct £ 

C C O 

= m x o e^- o (j 



= m. 



and finally 



(22) 
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because m x is a monomorphism (right-adjoints preserve monomorphisms) . □ 

Now ex was defined as a regular epimorphism, which does not imply the ex- 
istence of a section: think for example at the presheaf category of graphs, where 
all epimorphisms are regular, many of them without a section. Nevertheless, a 
very simple condition on S will be sufficient: recall that a (global) element of 
an object Z in C is an arrow z : 1 — > Z, where 1 is the terminal object, then 

Lemma 5 Suppose S has at least one element and (X, h) is a T '-algebra. Then 
ex has a section. 

Proof. Let s : 1 — > S be an element of S: for each object Z, it gives rise to 

lz : Z s -» Z 

by composition of Z s ° with the canonical isomorphism A 1 ~ A. Note that 7 
becomes a natural transformation and that for each Z 



lz°q* z = id z 

Let us now consider an algebra (X, h), and build the following diagram: 



7SXTX 

S xTX n TTX 



Sxh 



Qsxtx 



Th 



S xX: 



:TX 



Isxx 



h 

-+X 



(23) 



Define 

o" = 7sxx o Vx ° m x 
we claim that a is a section of e. To see this, we compute 

mx ex ° ° ex 

First, using naturality of 77, 7 and q*: 

mx°e x °o-oe x = h o q* SxX o ~/ SxX o n x ° h o q* SxX 

= h Q*sxx isxx o Th o tjtx o q*sxx 

= ho( l*SxX (S x h ) °!SxTX °VTX °q*SxX 
= h o Th o qg xTX ISxTX ° mx o gj x x 

then because ft- o T/i = ho /j, x and /ix = e^x > 



(24) 
(25) 



m x o e x o a o e x = ho e TX o q* SxTX o -y S xTX ° Vtx ° q* Sx x 
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and by using naturality of and 7 again, 1251) reduces to: 



Now 
and 

so that finally 



h ° q* S xx ISxX ° (-TX VTX ° Q*SxX 
e rx Vx = f-x o VTX = idrx 
7sxx Qsxx = idsxx 



(26) 



mx o e x o a o ex = ho q$ x x 
= m x ° e x 

As mx is a monomorphism, and ex an epimorphism, this implies 

ex o (T = idy 

which ends the proof. □ 

From Lemmas 0] and [5] immediately follows 

Proposition 2 If S has at least one element, then for each T -algebra {X,h), 
e* x has a section. 

3.4 e* x is a morphism of algebras 

We show that Lemma [21 extends to the general setting without additional as- 
sumptions: 

Lemma 6 For each T-algebra {X, h) , e* x is a morphism of algebras. 
Proof. Let us consider the following diagram: 

T(e* x ) „ T(m%) 



X ■ 



yi 



We must show that the left hand side square commutes. First, by using the 
adjunction, together with 0J, (J2J and the fact that q* is natural, 



m x o e* x o h 



= {mx ° ex)* ° h 

— (mx ° ex ° (S x h))* 

= (hoq* xX o(Sxh)r 

= (hoThoq* SxTX )* 

= (io/ix oqsxTxY 

= { ho 4xX Q*SxTx)* 

= { ho <l*sxx °esxx)* 
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then the same ingredients plus the facts that T is a functor, and e is natural 
imply: 

m s x oe s Y oT(e x ) = e S x o T(m s x ) o T(e* x ) 
= e s x oT(m s x oe* x ) 
= e s x oT((hoq* xX )*) 

= 4°(Sx(ho q * SxX )*) S 
= (e x o(S X {hoq* SxX )*)) s 

= ((h°q*sxxT) S * 

= (h°q*sxxf 

= ( ho 1*sxx) S ° ((idTx)*)* 

= ( ho Q*sxx ° (idrx)*)* 

= (h°q* Sx x °£5xx)* 

whence 

m A" e* x o h ~ m x otyo T(e^-) 
and because is a monomorphism, 

e>/i = 4oT(e^) 

which ends the proof. □ 

3.5 Monadicity theorem 

As a consequence of propositions ^ an d |2 if S has at least one element, then 
KL is naturally isomorphic to the identity on Alg T . On the other hand, 

Proposition 3 If S has at least one element, LK ~ 1. 

Proof. Let Y be an object of C. The algebra KY is (Y s ,ey)- By naturality 
of q* , the following diagram commutes: 

SxY s 9 l^l T (Y s ) 



y — ^y s 

1y 

Now, S has at least one element, say 

s : 1 — > S 
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which easily provides a retraction for q Y , and a section for ey. In particular, 
q Y is a monomorphism and ey a split — thus regular — epimorphism. Hence 
there is a unique isomorphism £y making the following diagram commutative: 



S x Y s 



LKY 




Y 



yS 



Moreover, £y is natural in Y, as shown by standard uniqueness arguments. □ 

We finally state our main result, an immediate consequence of the above 
discussion: 

Theorem 2 If C has regular epi-mono factorization, and S is an object of C 
having at least one element, then U : X i— > X s is monadic. 

4 Equations 

As we pointed out in the introduction, the present work is strongly related to the 
analysis of global states given in [5], with a significant difference: in jS], C is any 
category with countable products and coproducts, and S is a countable set of 
states, so that S x X (resp. X s ) now denotes the coproduct (resp. the product) 
of S copies of X , and not as in cartesian closed categories the internal product 
(resp. exponential) by an object S. Suppose however that C satisfies both sets 
of conditions, those in [5] and those of the present paper, as for example will be 
the case of any presheaf category: then a countable set S can be embedded as 
an object of C, coproduct of S copies of the terminal element, and the results 
of [S] still make sense in our setting, and the two possible interpretations of the 
notations S x — and (— ) s coincide. 

In particular, under these additional hypotheses, we may revisit the equa- 
tional presentation of global state algebras. Let E be the signature consisting 
of a symbol 1 of arity S, and for each s 6 S, a symbol u s , of arity 1; let E be 
the following set of equations among terms generated by E: 



A (E, i?)-algebra in C is now a pair (A, \ .\ A ) where A is an object of C, and |.| 4 
assigns to each symbol in E an arrow of C of appropriate arity: 




x 




A s 



A 



A 



A 
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in such a way that the equations in E are satisfied. 

Examples of (E, E)- algebras are objects of the form B s , with the following 
interpretation of E: \1\ A is defined by 

(B s ) s -=^>- B SxS B s 
where S : S — ► S x S is the diagonal map, and |u s |^ by the composite: 

B S -^B-^*B 3 

where s : 1 — > S picks s <E S and ! : S — ► 1. In Sets, 1 takes a family of 
maps (£> s )seS an d returns the diagonal map s i— > 6 s (s), whereas u s takes a map 
b and returns the constant map s' i— > b(s). Now, joigning Theorem [2] above and 
Theorem 1 of |S] , we may conclude that those are essentially the only examples 
of (E, i?}-algebras, and of course of T-algebras. 

Remark 

Because we deal with global states only, we take here the set of locations L as 
a singleton, which reduces the seven equations of section 3 to the first four. 
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